<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<html><!-- InstanceBegin template="../Templates/common.dwt" codeOutsideHTMLIsLocked="false" -->
<!--#include virtual="/timereport/include/auth.asp" -->
<!--#include virtual="/timereport/include/common.asp" -->

<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Lista profili spese</title>

<!-- InstanceEndEditable --> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- InstanceBeginEditable name="head" -->
<link href="../include/commoncss.asp" rel="stylesheet" type="text/css">
<%
'	No authorization for this function
	If Session("userLevel") < 4 Then 
		response.redirect("/timereport/menu.aspx?msgtype=E&msgno=" & MSGNO_AUTHORIZATION_FAILED)
	End if
%>	
<!-- InstanceEndEditable -->
</head>

<SCRIPT language=JavaScript src= "/timereport/include/menu/menu_array.js" type=text/javascript></SCRIPT>
<SCRIPT language=JavaScript src= "/timereport/include/menu/mmenu.js" type=text/javascript></SCRIPT>

<body>
<table width="760" border="0" align="left" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="30" class="BarraTop"><div align="right">Utente: <%= session("UserName") %> 
      </div></td>
  </tr>
  <tr>
    <td height="30">&nbsp;</td>
  </tr>
  <tr> <!-- InstanceBeginEditable name="principale" --> 
    <td ><form name="form1" method="post" action="imposta-valori-profilo.asp">
      <table width="60%" border="0" align="center" cellpadding="0" cellspacing="0" class="BoxDialogo">
        <tr>
          <th colspan="2">Criteri di selezione</th>
        </tr>
        <tr>
          <td width="30%">&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td>Profilo di spesa :</td>
          <td><select name="ExpensesProfile_Id" class="FormInput">
                <%                   
                call MakeConn(objConn, DATABASE)			
	         	call MakeRs_view(objRs,objConn, "SELECT ExpensesProfile_id, Name FROM ExpensesProfile ORDER BY Name") 
            		
           		Dim aArr, i
       			aArr = objRs.getrows            		
            	
       			For i=0 to Ubound(aArr, 2)
					If aArr(0,i) = Cint(request("ExpensesProfile_id"))  then
   				response.write("<option value=" & aArr(0,i) & " selected>" &aArr(1,i) & "</option>")            		
					else
   				response.write("<option value=" & aArr(0,i) & ">" &aArr(1,i) & "</option>")            		
					End if		
            	Next            		            		
            			destroy(objRs)
            			destroy(objConn)
%>
              </select></td>
        </tr>
        
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <br>
      <table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><input name="Submit" type="submit" class="FormButtont" value="Esegui"></td>
        </tr>
      </table>
    </form></td>
    <!-- InstanceEndEditable --></tr>
</table>
</body>
<!-- InstanceEnd --></html>
